home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / macros / lin2d.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  435b  |  28 lines
  1. /* macro to solve current model */
  2.  
  3. if ~show('ports', "LIN2D") then do
  4.     address command 'run ami2d:bin/lin2d'
  5.     do while ~show('ports', "LIN2D")
  6.     end
  7. end
  8.  
  9. address ami2d 'clear'
  10. address ami2d 'save(ram:temp.dat)'
  11.  
  12. address lin2d
  13.  
  14. 'read(ram:temp.dat)'
  15. address command 'delete ram:temp.dat'
  16. 'formkf(0)'
  17. 'solve(0)'
  18. 'save(ram:temp.dat)'
  19. 'stop'
  20.  
  21. address ami2d 
  22.  
  23. 'read(ram:temp.dat)'
  24. 'find'
  25.  
  26. address command 'delete ram:temp.dat'
  27. exit
  28.